home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
util
/
wb
/
iconimage.lha
/
MakeDraws4Icons
< prev
next >
Wrap
Text File
|
1994-11-20
|
475b
|
24 lines
;Script to create directories for Drawer Icons.
FailAt 11
c:Ask "*nThis script creates drawers for draw icons.*nDo you want to proceed ?"
If Not Warn
Quit
EndIf
Set Script t:MakeDirs
Set Drawer `c:RequestFile Title="Select Icon Drawer" DRAWERSONLY`
Echo "*nGetting names..."
c:List $Drawer LFormat="MakeDir $Drawer%m" Sub=".info" >$Script
Echo "*nCreating Drawers"
c:Execute $Script
c:Delete $Script >NIL:
UnSet Drawer
UnSet Script
Echo "*nProcess complete."